COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	EXTERNAL FNUM
C00004 ENDMK
C⊗;
EXTERNAL FNUM
.INSERT MN
SUBR(PLTO)	;DISPLAY BUFFER TO DISK FILE.
COMMENT .-----------------------------------------------------------.
	MOVE 1,FNUM
	MOVE 1,TABL6-1(1)
	MOVEM 1,FFNUM
	SETZM FFNUM+2
	LAC 1,DPYBUF↑↔MOVN(1)1↔SUBI 2
	CDR 2,(1)↔SETZM 1(2)
	MOVS↔HRRI -1(1)↔DAC DUMLST
	INIT 1,17↔SIXBIT/DSK/↔0↔HALT
	ENTER 1,MOVNAM↔GO .+4
	OUT 1,DUMLST↔JFCL
	RELEASE 1,↔POP0J
DUMLST:	0↔0
MOVNAM:	'MOVIE '
FFNUM:	BLOCK 3
TABL6:	'1     ' ↔ '2     ' ↔ '3     ' ↔ '4     '
	'5     ' ↔ '6     ' ↔ '7     ' ↔ '8     '
	'9     ' ↔ '10    ' ↔ '11    ' ↔ '12    '
	'13    ' ↔ '14    ' ↔ '15    ' ↔ '16    '
	'17    ' ↔ '18    ' ↔ '19    ' ↔ '20    '
	'21    ' ↔ '22    ' ↔ '23    ' ↔ '24    '
	'25    ' ↔ '26    ' ↔ '27    ' ↔ '28    '
	'29    ' ↔ '30    ' ↔ '31    ' ↔ '32    '
	'33    ' ↔ '34    ' ↔ '35    ' ↔ '36    '
	'37    ' ↔ '38    ' ↔ '39    ' ↔ '40    '
	'41    ' ↔ '42    ' ↔ '43    ' ↔ '44    '
	'45    ' ↔ '46    ' ↔ '47    ' ↔ '48    '
	'49    ' ↔ '50    ' ↔ '51    ' ↔ '52    '
ENDR PLTO;---------------------------------------------
END